home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / MAKEDIR.DEM < prev    next >
Text File  |  1994-07-02  |  472b  |  29 lines
  1. program MakeDirSample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  var
  6.    DirName : string;
  7.  
  8. begin
  9.   Color( 7, 0 );
  10.   clrscr;
  11.   writeln;
  12.   write( 'Enter directory to create : ' );
  13.   readln( DirName );
  14.  
  15.   MakeDir( DirName );    { Call MakeDir procedure }
  16.  
  17.   if ( ErrFlag ) then
  18.     begin
  19.       writeln( #7 );
  20.       writeln( ShowError( GetErrCode ) );
  21.     end
  22.   else
  23.     begin
  24.       writeln;
  25.       writeln( 'Directory successfully created. ' );
  26.     end;
  27.  
  28.   GetEnter;
  29. end.